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MODULE DELBAD ( 


a 


BEGIN 


' 
ASSESS IILIII STITT IT TTT TTT TTT rrr rire rir iri iii i tii itis iiiiiitiiitit. 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED 


* 
@ 
® 
' t 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is OMLY IN, ACCORDANCE WITH OTHE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. * 
® 
® 
® 
* 
® 
® 
oe 
® 
& 
* 


ot at te 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;. CORPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: FI1ACP Structure Level 2 

i ABSTRACT: 


This routine removes the indicated blocks from the given file header 
and appends them to the bad block file. 


ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 29-May-1978 22:43 
MODIFIED BY: 


v04-001 CDS0005 Christian 0. Saether 7-Nov-1984 
Reread primary header fo update hiblock and highwater 
mark. lso update revision date. 


v03-006 cps0006 Christian D. Saether 14-Aug-1984 


i 
i 
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i 
i 
i 
i 
i 
i 
ie 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Remove obsolete reference to update_filesize routine. 
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F 10 
vOC=001 Bxpet=1986 eie8i28 UM ix-euasned 


H & 7 ; 
; 5 35 1} v03-005 £0S0005 Ghe terion D. Saether 31-July-1984 : 
: § oe : } Remove local definition of get_map_pointer Linkage. : 
: 58 ¢ 1 v03-006 cpso002 Christian D. Saethe 22-May-1984 ; 
; 7: Perform deallocation to bad block ti e in secondary : 
; $0 ¢ ! } context. Add appropriate serialization. : 
i; 6 1} vO3-003 ¢0s0001 Christian D. Saether 29-Dec=1983 : 
; o7 : } Use L_NORM Linkage and BIND_COMMON ma ; 
: 65 5 ii VO3=002 ACG0367 Andrew C, Goldstein, 26-Oct-1983 19:49 3 
; 66 9 1 Update BADBLK.SYS file highwater mark : 
: 68 007¢ 1 vO3-001 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 ; 
; H Babe : } Remove the addressing mode module switch. : 
c 0075 1} v02-003 AcG0230 Andrew C. Goldstein, 24-Dec-1981 0:16 : 
; i $078 } to longword external addressing : 
So. re 1: v02-002 ACG0167 Andrew C. Goldstein Lenror=1900 19:25 : 
Fe: 79 1! Previous revision history moved to f11B8.REV 20 
; 80 1 !ee ; 
Phe Bal 7 
; 79 00 : 1 LIBRARY ‘SYSSLIBRARY:L g,L52': ; 
; & 0084 1 REQUIRE ‘SRCS$:FCPDEF.B32'; ; 


10 
8 -Jan-1985 17:48: AX-11 Bliss-32 v4.0-742 
Mirae dt =het= 1982 12:4 36 Sr tt tats te 2:1 
GLOBAL ROUTINE DEALLOCATE_BAD (FIB, FILE_HDR, POINTER, LAST_COUNT) : L_NORM NOVALUE = 
'o4¢ 
! 


i FUNCTIONAL DESCRIPTION: 


This routine removes the indicated blocks from the given file header 
and appends them to the bad block file. 


“ 
OCOOOCCOCO 


ooo 
169 09 C9 CD ODO SII NII 
MEW —"OOONOU 


CALLING SEQUENCE: 
DEALLOCATE_BAD (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: 
ARG1: address of user FIB 
ARG¢: address of file header 


SSEes 


RID PIM IPDPIPIPIAPIPIPIPIPIPINIDPINIAI III 2 a i kh od 
wm 
a 
—_ 
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091 ARGS: address of map pointer at which to start 
O38 ARGS: new value for last pointer block count 
094 IMPLICIT INPUTS: 

095 NONE 

b99 OUTPUT PARAMETERS: 

B38 NONE 


LESRESLSSELESRANLESS 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
file header updated, bad block log file updated, bad block file extended 


FIB : REF BBLOCK, ' user FIB argument 
FILE_HDR : REF BBLOCK; ' address of Tile header 


LINKAGE 
L_MAKE_POINTER = CALL : 
GLOBAL (BUILD_POINTER = 9); 


GLOBAL REGISTER 
COUNT 


= 6, ' count of blocks returned 
=f, ! LBN of map entry 
MAP_POINTER = 8 : REF BBLOCK, ! pointer to scan map 
BUICD_POINTER = 9 : REF BBLOCK; ! pointer to build new map entry 
LOCAL 
00 = yoeeed HEADER : REF BBLOCK; ! local address of file header 


BIND 


a ee ec a ee ee ee ee ee ee ed a nd od od td od = 
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BB_FID = UPLIT WORD (BADBLK_FID, BADBLK_FID, 0); 


S= 
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BIND_ COMMON; 

128 5 EXTERNAL ROUTINE 

1 i EDSB088 SET_REVISION : LLNORM NOVALUE ADDRESSING_MODE (GENERAL), 

¢ 'CDS ' set revisTon date 

teh SAVE CONTEXT : L_NORA, ! save primary context 

145 RESTORE CONTEXT : L-NORM, ' restore primary context 
SERIAL_FI : LONORM, ' ¢ Le ser alization lock. 
RELEASE _SERIAL_LOCK”: L_NORM, rel nquish file ser alization 
WRITE _DIR : LLNOR ! write modified buffers 
GET MAP POINTER : L-MAP POINTER, ! get value of next map entry 
MAKE_POTNTER  : LIMAKE POINTER, "build new map entry 
NEXT HEADER : LUNORA, ! read next extension header 
MARK DIRTY : LLNORA, ! mark buffer for rewrite 

| CHECKSUM : LINORM, ' compute file header checksum 

READ_HEADER : L_NORM, ' read file header 
EXTEND HEADER : L_NORM, ' create extention header 
SCAN_BADLOG : LINORM; ! scan pending bad block log file 


Get into secondary context. 


SAVE_CONTEXT (); 

! Construct pointers into the file header and get the current contents of the 
last map pointer. 

HEADER = .FILE_HDR; 

MAP_POINTER = .POINTER; 

GET_MAP_POINTER (); 

' Now append the blocks to the bad block file. 


LBN = .LBN + .LAST COUNT; ' compute LBN of bad cluster 
COUNT = .COUNT - .CAST_COUNT; 


: Serialize on the bad block file. 


LSISVSARANASSSLFSTFERISSSVSELENLS SELES 


PRIM_LCKINDX = SERIAL_FILE (BB_FID); 
HEADER = READ_HEADER (88_F ID, 0); 


SOB AI a rk kd ed od ot ot 
ow 


—_ 
o 


WHILE 1 bo 
IF .WEADER CFH2$W_EX FIDNUM] EQL 0 
ne HEADER CFH2$B8_EX_FIONMX) EQL 0 
EXITLOOP; 


a a a eee ee ee ed a ed 8 od ed = od = = =o = = 
ee ce a me me ee ee ee ee ed ed ed od dd ed 


NNN NNN IAA AP AAAAOO UUM BRR REPRE 


yaa = NEXT_HEADER (.HEADER, 0); 


EET ISN OTT RR Te aT 
DEL BAD b-Jan-1985 12:68:18 AX-11 et gts Rp or He 


-Oct-1 12:45: F11X.BUGSRCID 


011 'CDS0005 1 
19¢ 1 MARK_DIRTY (.HEADER) 
3 | BUILB_POINTER = "HEADER + (.HEADERCFH2$B_MPOFFSET) + .HEADERCFH2$8_MAP_INUSE)) * 2; 
195 1 IF NOT MAKE_POINTER (.COUNT, .LBN, . HEADER) 
198 1 om BEGIN 7 ne 
198 1 HEADER = EXTEND_MEADER (UPLIT BT (i Pp pears C LENGTH. C OF (0)), .MEADER, 0); 
199 1 RAKE, POINTER =". HEADER + .HEAD 
o ! POINTER (.COUNT, .LBN, EOE ADER 
2 
' 


! If we have gotten into extension headers, we need to re-read the primary 
oe update fields there. Checksum the current header if that is 

. c . 

' 


IF .HEADER CFH2$W_SEG_NUM] NEQ 0 
THEN 


BEGIN 

CHECKSUM (.HEADER); 

HEADER = READ_HEADER (BB_FID, 9); 
MARK_DIRTY (HEADER); 

END; 


SET_REVISION (.HEADER, 


BBLOCK CHEADERCFHeSy sonnel. FATSL_HIBLK) = 
(.BBLOCK CHEADERCFH2SW_ RECATIRI, FATSL_HIBLK], 16) + .COUNT, 16); 


: a4. his file header supports it, stuff the high water field to 
he allocated size. 


i ate CFH2$8_IDOFFSET] GEQU (SBYTEOFFSET (FH2$L_HIGHWATER) +4)/2 
HEADER CFH2SL_HIGHWATER) = ROT (.BBLOCK CHEADERCFH2$W_RECATTR], FATSL_HIBLK], 16) + 1; 
CHECKSUM (.HEADER) ; 


! Write the modified header(s), release the serialization lock, and return to 
: primary context. 


REG SGO NONE OOHDNP AP WU OSR UE AR WU DONOR OOD 


unite.pinty (..B BASIS C.PRIM_LCKINDX)); 
RELEASE _SERIAL_LOCK (.PRIM_LCKINDX); 
RESTORE CONTEXT (); 


$ Finally remove the bad block cluster from the volume pending bad block log 
file, if it was there. 


ec ee ee ee ee a ee ee ee ee ee ce ee a a ec ce ee ee ee ee ee el ee ed ee ee ee 
~~ 
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45 SCAN_BADLOG (0, 0, .LBN, REMOVE _BADBLOCK, .COUNT); 


DELBA bean § 17:4 AX-11 Bliss-32 V4.0-742 Page 6 
Maret meee i 15: f: \g F11X.BUGSRCID DELB AD.832;1 9 02) 
1 124 
33) 136 ¢ END; ! end of routine DEALLOCATE_BAD 
TITLE DELBA 
“TENT Ree 001\ 
-PSECT S$CODES,NOWRT,2 
0000 0003 0003 P.AAA: .WORD z ; 
000 taint P-AAB: .BYTE dtees : 
BB_FID= P.AAA 
.EXTRN SET_REVISION, SAVE_CONTEXT 
-EXTRN RESTORE CONTEXT 
-EXTRN SERIAL FILE, RELEASE_SERIAL_LOCK 
“EXTRN WRITE DIRTY, GET MAP POINTER 
-EXTRN MAKE_POINTER NERT HEADER 
SEXTRN MARK-DIRTY, CH 
-EXTRN READ-HE EADER, EXTEND _HEADER 
-EXTRN SCAN“BADL 
- _ a O86 abNTRY DEALLOCATE BAD, Save R2,R3,R6,R7,R8,R9 : 1075 
00006 CF 00 F CALLS O07 SA SAVE_CONTEXT + 115 
3 08 AC D MOVL  FILE_HDR? COEABER : 1168 
5 C ac p MOVL POINTER, MAP_POINTER : 116 
00006 GET MAP POINTER : 1165 
57 10 ac CO ADDL2 LAST_COONT, LBN : 1170 
56 10 ac C2 SUBL2 LAST"COUNT. COUNT : 1171 
53 DD PUSHL 3 + 1176 
oon kA 50 D8 mott> RO, SECBARED ee 
D4 creat = § : 1178 
53 DD PUSHL : 
00006 cr Q r oo CALLS #2, RE READ D HEADER 
OE A 8 x ; 1ST aS tuekoens 1182 
13 A2 9 TSTB 9 (HEADER) : 1183 
08 1 BEQL «ss 3$ ; 
04 23: CLAL =-(SP) 3: 1187 
; DD PUSHL HEADER : 
00006 CF a CALLS ‘ , NEXT_HEADER 
es 52 po BOOK ss: FISK, MEADER ; 1190 
0 91 A2 9A 00( ROVIBL CEADERS, aM > 1191 
1 A , Rov? HEADERS, R1 ; 
3 6240 SE 00( mOVAW Hest cen, BUILD_POINTER : 
D PUSHL > 1193 
7E D mova ; 
00006 f | F CALLS ae SDINTER : 
5 D4 CLRL : 1196 
52 DD PUSHL aot : 


. 
° 


vOo=001 bjer3gs i 08:2 EX eUGSRERDEL BAB 8s2s1 


: PSECT SUMMARY 


06 Ad OF PUSHAB 4 AAB ; : 

00006 CF 9 FB cA Ls READER HEADER : ; 

f 01 A eA ROVIBL 1 (HEADER) : : 

6240 3€ MOVAW (wEADER) CRO, BUILD_POINTER : ; 

r eo meet | : 

00006 CF F CALLS ate ;POINTER : ; 

06 A : TSTw : ; 

3 DD PUSHL 

00006 CF of & CALLS ng ADE ENE CKSUM : 3 

ee I ol ; ; 

00006 cf 7 CALLS #2, READ_HEADER : 3 

i: ruth, mpiobe oe : : 

00006 CF 1 FB CALLS #1, MARK_DIRTY : ’ 

1 83 went te : : 

000000006 00 03 FB CALLS a SE REVISION : : 

50 18 Ag l 9 ROTL . 4THEADER) , RO ; ; 

18 A2 30 ‘8 Sc ROTL RO, 26(HEADER) : : 

2 2 91 CAPS THEADERS , #40 

50 18 a2 10 9 OTL #16 24 (HEADER) : : 

4c oA 01 AO 9% mOVAB 1rd), POCHEADER) © : : 

eget hoa ta: aS Bae : : 

0080 caed DOD PUSH Feacaase eno. : : 

ne es ae Bite Stiatteye-Ptt™ : : 

0000G CF 01 FB CALLS #1, RELEASE_SERIAL_LOCK : : 

00006 CF 0 FB CALLS #0, RESTORE-CONTEXT : : 

6 0D SHL COUNT : ; 

D4 CLRL. = = (SP) : : 

ar OP Creo, | f PR) ; 

00006 CF 0S FB CALLS #5, SCAN_BADLOG ; : 

04 RET : : 

; Routine Size: 260 bytes, Routine Base: SCODES + 0046 ; 
> 233 1268 1 : 
; 334 1249 1 END 3 
: 235 1250 0 ELUDOM ; 
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nent HaerctQQe 4Ssth:33  YMGT'SBLAESSZ Ns ols2 
3 Name Bytes Attributes 

SCODES 330 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; ccocsees Symbols oooceese Pages Processing 
: File Total Loaded Percent Mapped Time 
;  _$255$DUA18:(SYSLIBILIB.L32;1 18619 27 0 1000 00:02.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DELBAD/OBJ=0BJ$:DELBAD MSRC$:DELBAD/UPDATE=(BUGS$:DELBAD) 
: Size: 260 code + 70 data bytes 
; Run Time: 00:19.7 


3; Elapsed Time: 00:35.8 
: Lines/CPU Min: 3803 

3: Lexemes/CPU-Min: 44272 

: ponery Used: 232 pages 
; Compilation Complete 
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